home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
ArchivPMs.zprx
< prev
next >
Wrap
Text File
|
1995-03-09
|
969b
|
48 lines
/* $VER: ArchivPMs.zp 1.0 (23.04.94), ©1994 by Jean-Marie de Crozals
Leitet PMs in Brett mit konfigurierbarem Namen weiter... */
user = 'jeannot@#?'
brett = 'Persönliches Nachrichtenarchiv'
parse arg zpPort /* Holt sich den Portnamen aus der Befehlszeile */
address value zpPort /* Kommandos von ZP benutzen können */
options results /* Resultate werden in "result" übergeben */
WHICHLEVEL
if (result ~= 'BOARD') then
do
if (result ~= 'BOARDMENU') then
BOARDMENU
JUMPTOBOARD 3 /* PM-Brett */
ENTERBOARD
end
JUMPTOMESSAGE 1
downrc = rc
jumprc = 1
do while (jumprc & downrc)
JUMPTOMESSAGE NAME '"'user'"'
jumprc = rc
if (jumprc) then
do
MESSAGEINFO SUBJECT
inforesult = left(result,2)
if inforesult = 'Re' then
do
FORWARDMESSAGE '"'brett'" INTERNAL'
if (~rc) then
REQUESTNOTIFY 'Konnte Nachricht nicht weiterleiten!'
else
DELETE ONE
end
end
DOWN
downrc = rc
end